home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / MIXCASE.ZIP;1 / ENV3.BAS (.txt) next >
Encoding:
GW-BASIC  |  1993-04-25  |  736 b   |  20 lines
  1. 1  '  ENVELOPE PRINTING WITH MY RETURN ADDRESS   copyright G.MICHELS Jan 1990
  2. 2  '
  3. 3  '
  4. 10  CLS:LINE INPUT "ENTER NAME OF ADDRESSEE: ",N$:PRINT:LINE INPUT"ADDRESS:  ",A$
  5. 20  PRINT:LINE INPUT "CITY: ",C$:INPUT "STATE AND ZIP:",ST$
  6. 30  PRINT TAB(30) N$:PRINT:PRINT TAB(30) A$:PRINT:PRINT TAB(30)C$", "ST$
  7. 40  PRINT:INPUT"IS THIS CORRECT? Y/N: ",ANS$
  8. 50  IF ANS$ <> "Y" GOTO 10
  9. 55  INPUT "PLEASE POSITION ENVELOPE IN PRINTER. READY? Y/N: ",Y$
  10. 57  IF Y$<>"Y" THEN 55
  11. 60  LPRINT CHR$(27);CHR$(0);CHR$(2):
  12. 70  LPRINT TAB(1)"type your name here":LPRINT TAB(1)"type your street address here"
  13. 80  LPRINT TAB(1) "type city,2 char state zip";CHR$(11)
  14. 90  LPRINT TAB(30)"       ":LPRINT TAB(30)"      ":LPRINT TAB(30)"    "
  15. 100  LPRINT TAB(30)"  ":LPRINT TAB(30)"  ":LPRINT TAB(30) N$:LPRINT TAB(30) A$
  16. 110  LPRINT TAB(30) C$ ", " ST$
  17. 120  INPUT "PRINT MORE ENVELOPES TO ADDRESSEE? Y/N: ",ANS$
  18. 130  IF ANS$ = "Y" THEN 55
  19. 160  END
  20.